home *** CD-ROM | disk | FTP | other *** search
/ Buffalo Sabres 2001-2002 Promotional CD / Sabres.iso / pc / pbios.dxr / 00003_the mover.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  1.2 KB  |  43 lines
  1. property pSp, pSpeed, pRlimit, pLlimit, pDirection
  2.  
  3. on getPropertyDescriptionList
  4.   d = [:]
  5.   addProp(d, #pSpeed, [#default: 5, #format: #integer, #range: [#min: 1, #max: 100], #comment: "Hey asshole put in the speed!"])
  6.   addProp(d, #pRlimit, [#default: 640, #format: #integer, #range: [#min: 0, #max: 900], #comment: "Put in the Right limit dummy!"])
  7.   addProp(d, #pLlimit, [#default: 0, #format: #integer, #range: [#min: -150, #max: 640], #comment: "Put in the Left limit sillyhead!"])
  8.   addProp(d, #pDirection, [#default: "Right", #format: #string, #range: ["Right", "Left"], #comment: "where do you want to go today?"])
  9.   return d
  10. end
  11.  
  12. on prepareFrame me
  13.   pos = the locH of sprite pSp
  14.   if pDirection = "Right" then
  15.     speed = pSpeed
  16.   else
  17.     if pDirection = "Left" then
  18.       speed = -pSpeed
  19.     end if
  20.   end if
  21.   newPos = pos + speed
  22.   if newPos >= pRlimit then
  23.     newPos = pLlimit
  24.   else
  25.     if newPos <= pLlimit then
  26.       newPos = pRlimit
  27.     end if
  28.   end if
  29.   set the locH of sprite pSp to newPos
  30. end
  31.  
  32. on beginSprite me
  33.   pSp = me.spriteNum
  34. end
  35.  
  36. on endSprite me
  37. end
  38.  
  39. on getBehaviorDescription
  40.   description = "this is gonna move something to the left"
  41.   return description
  42. end
  43.